home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / procssng / ccs / ccs-11tl.lha / lbl / xview / hview / guide_files / hview.G < prev   
Encoding:
Text File  |  1992-03-31  |  4.7 KB  |  180 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :base-window
  5.     :name                   win
  6.     :owner                  nil
  7.     :width                  356
  8.     :height                 327
  9.     :background-color       ""
  10.     :foreground-color       ""
  11.     :label                  "HIPS Image Display"
  12.     :label-type             :string
  13.     :initial-state          :open
  14.     :show-footer            nil
  15.     :resizable              t
  16.     :icon-file              ""
  17.     :icon-label             ""
  18.     :icon-mask-file         ""
  19.     :event-handler          nil
  20.     :user-data              ()
  21.     :actions                ()
  22. )
  23. (
  24.     :type                   :control-area
  25.     :name                   controls1
  26.     :owner                  win
  27.     :help                   ""
  28.     :x                      0
  29.     :y                      0
  30.     :width                  360
  31.     :height                 45
  32.     :background-color       ""
  33.     :foreground-color       ""
  34.     :initial-state          :visible
  35.     :show-border            nil
  36.     :menu                   nil
  37.     :event-handler          nil
  38.     :user-data              ()
  39.     :actions                ()
  40. )
  41. (
  42.     :type                   :button
  43.     :name                   button2
  44.     :owner                  controls1
  45.     :help                   ""
  46.     :x                      8
  47.     :y                      8
  48.     :width                  61
  49.     :height                 19
  50.     :constant-width         nil
  51.     :button-type            :normal
  52.     :foreground-color       ""
  53.     :label                  "Perfect"
  54.     :label-type             :string
  55.     :initial-state          :active
  56.     :menu                   nil
  57.     :notify-handler         make_perfect_colors
  58.     :event-handler          nil
  59.     :user-data              ()
  60.     :actions                (
  61.         (
  62.         :from                   (win button2)
  63.         :when                   (Notify )
  64.         :to                     (win button2)
  65.         :function_type          CallFunction
  66.         :arg_type               ()
  67.         :action                 (make_perfect_colors)
  68.         )
  69.     )
  70. )
  71. (
  72.     :type                   :slider
  73.     :name                   slider1
  74.     :owner                  controls1
  75.     :help                   ""
  76.     :x                      88
  77.     :y                      8
  78.     :width                  182
  79.     :height                 20
  80.     :value-x                154
  81.     :value-y                8
  82.     :slider-width           100
  83.     :ticks                  0
  84.     :foreground-color       ""
  85.     :label                  "Contrast:"
  86.     :label-type             :string
  87.     :layout-type            :horizontal
  88.     :orientation            :horizontal
  89.     :show-endboxes          nil
  90.     :show-range             nil
  91.     :show-value             nil
  92.     :min-value              2
  93.     :max-value              52
  94.     :min-value-string       ""
  95.     :max-value-string       ""
  96.     :min-tick-string        ""
  97.     :max-tick-string        ""
  98.     :initial-value          0
  99.     :initial-state          :active
  100.     :notify-handler         nil
  101.     :event-handler          nil
  102.     :user-data              ()
  103.     :actions                (
  104.         (
  105.         :from                   (win slider1)
  106.         :when                   (Notify )
  107.         :to                     (win button1)
  108.         :function_type          CallFunction
  109.         :arg_type               ()
  110.         :action                 (gamma_proc)
  111.         )
  112.     )
  113. )
  114. (
  115.     :type                   :button
  116.     :name                   button1
  117.     :owner                  controls1
  118.     :help                   ""
  119.     :x                      280
  120.     :y                      8
  121.     :width                  45
  122.     :height                 19
  123.     :constant-width         nil
  124.     :button-type            :normal
  125.     :foreground-color       ""
  126.     :label                  "Quit"
  127.     :label-type             :string
  128.     :initial-state          :active
  129.     :menu                   nil
  130.     :notify-handler         quit_proc
  131.     :event-handler          nil
  132.     :user-data              ()
  133.     :actions                (
  134.         (
  135.         :from                   (win button1)
  136.         :when                   (Notify )
  137.         :to                     (win button1)
  138.         :function_type          CallFunction
  139.         :arg_type               ()
  140.         :action                 (quit_proc)
  141.         )
  142.     )
  143. )
  144. (
  145.     :type                   :canvas-pane
  146.     :name                   can
  147.     :owner                  win
  148.     :help                   ""
  149.     :x                      0
  150.     :y                      42
  151.     :width                  356
  152.     :height                 285
  153.     :background-color       ""
  154.     :foreground-color       ""
  155.     :initial-state          :visible
  156.     :draggable              nil
  157.     :droppable              nil
  158.     :default-drop-site      nil
  159.     :menu                   nil
  160.     :horizontal-scrollbar   t
  161.     :scrollable-width       356
  162.     :vertical-scrollbar     t
  163.     :scrollable-height      285
  164.     :repaint-proc           canvas_repaint_proc
  165.     :event-handler          nil
  166.     :drawing-model          :xwindows
  167.     :user-data              ()
  168.     :actions                (
  169.         (
  170.         :from                   (win can)
  171.         :when                   (Repaint )
  172.         :to                     (win can)
  173.         :function_type          CallFunction
  174.         :arg_type               ()
  175.         :action                 (canvas_repaint_proc)
  176.         )
  177.     )
  178. )
  179. )
  180.